home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / BARNET / FREENET / JONES / LOGIN / s / readonly next >
Text File  |  1995-08-29  |  1KB  |  60 lines
  1. ; vi:ts=8:sw=8:nosi:ai
  2. ;
  3. ; Copyright (C) 1994 Alun Jones, auj@aber.ac.uk
  4. ;
  5. ; This source code is freeware.
  6. ;
  7. ; readonly.s - Makes a variable read-only. The value of the variable
  8. ;              is read and a code variable of the same name is created.
  9. ;              The value is then stored in this variable, whose write
  10. ;              function is disallowed.
  11. ; Usage: readonly variable$name
  12. ; 
  13.  
  14. .ABSOLUTE
  15. .PROC    main
  16.  
  17.     MOV    R0, R1            ; Variable name ptr
  18.     ADR    R1, buffer
  19.     MOV    R2, #100
  20.     MOV    R3, #0
  21.     MOV    R4, #3
  22.     SWI    XOS_ReadVarVal
  23.     MOVVS    PC, R14
  24.  
  25.     ADR    R1, code
  26.     ADR    R1, code        ; Code start ptr
  27.     ADR    R3, endcode
  28.     SUB    R3, R3, R1        ; Code length
  29.     ADD    R2, R2, R3        ; Code + buffer length
  30.     MOV    R3, #0            ; Context ptr
  31.     MOV    R4, #10            ; Code variable
  32.     SWI    XOS_SetVarVal
  33.     MOV    PC, R14
  34.  
  35. code    B    write            ; Branch to code write
  36.  
  37. read    STMFD    R13!, {R1,R3, R14}
  38.     ADR    R0, buffer
  39.     MOV    R2, R0
  40. count    LDRB    R1, [R2], #1
  41.     CMP    R1, #" "
  42.     BGE    count
  43.     SUB    R2, R2, #1
  44.     SUB    R2, R2, R0
  45.     LDMFD    R13!, {R1,R3, PC}
  46.  
  47. write
  48.     ORR    R14, R14, #10000000
  49.     ADR    R0, ErrMess
  50.     MOVS    PC, R14
  51.     LDMFD    R13!, {PC}
  52.  
  53. ErrMess    .WORD    0
  54.     .STRING    "Variable is readonly"
  55. endcode
  56.  
  57. buffer    .BLOCK    100, 0
  58.     .ALIGN
  59. .END
  60.